
Option Explicit

Sub z1()
    Dim str As String, n As Long, i As Long, p As Boolean

    p = True
    str = InputBox("Unesi rec: ")

    n = Len(str)
    For i = 1 To n / 2 ' moze da se ide i do n
        If Mid(str, i, 1) <> Mid(str, n + 1 - i, 1) Then
            MsgBox ("Nije palindrom")
            p = False
            Exit For
            ' ovde se nikad nista nece izvrsiti
        End If
        ' ako exit for dodje ovde ciklus ce stati posle jednog prolaska
    Next

    If p Then
        MsgBox ("Palindrom")
    End If
End Sub

Sub z2()
    Dim broj As String, n As Long, i As Long, obr As String

    broj = InputBox("Unesi broj: ")

    n = Len(broj)
    For i = n To 1 Step -1
        obr = obr & Mid(broj, i, 1)
    Next

    MsgBox ("obrnut broj: " & obr)
End Sub

Sub z4()
    Dim broj As Long, gr As Long, i As Long, p As Boolean

    broj = InputBox("Unesi broj: ")

    p = True
    gr = broj ^ 0.5

    For i = 2 To gr
        If broj Mod i = 0 Then
            MsgBox ("Nije prost")
            p = False
            Exit For
        End If
    Next

    If p Then
        MsgBox ("broj je prost")
    End If
End Sub


Sub z6()
    Dim n As Long, fakt As Long, i As Long, e As Double

    n = InputBox("Unesi broj: ")
    e = 1
    fakt = 1
    For i = 1 To n
        fakt = fakt * i
        e = e + 1 / fakt
    Next

    MsgBox ("broj e je: " & e)
End Sub

Sub z8()
    Dim n As Long, fakt As Long, i As Long, sin As Double, x As Double

    n = InputBox("Unesi broj: ")
    x = InputBox("Unesi x: ")
    sin = 0

    fakt = 1
    For i = 1 To n
        fakt = fakt * (2 * i + 1) * (2 * i)
        sin = sin + (-1) ^ i * x ^ (2 * i + 1) / fakt
    Next

    MsgBox ("sin je: " & sin)
End Sub

Sub z9()
    Dim eps As Double, fakt As Long, i As Long, e As Double, br As Long,
clan As Double

    eps = InputBox("Unesi gresku: ")
    e = 1
    fakt = 1
    br = 1
    clan = 1

    Do While clan > eps
        fakt = fakt * br
        clan = 1 / fakt
        e = e + clan
        br = br + 1
    Loop

    MsgBox ("broj e je: " & e)
End Sub